home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / PowerMacOberon 1.2 / System / Kepler6.Sym < prev    next >
Encoding:
Text File  |  1994-09-15  |  1.7 KB  |  6 lines  |  [TEXT/.Ob4]
  1. ˜≠Ë ∂Kepler6BezierÜõ¬∂KeplerGraphs |ObjectDesc
  2. Object¸{selfÇ„„‡KeplerPortsPort˚{P Draw
  3. ¸{selfıñ≥Filesreseof tRider˚{R Read
  4. ¸{self˚{R WritenofptsStar
  5. pConstellationnext tConsDesc
  6. ¸{self˚{R Read
  7. ¸{selfState
  8. ¸{self˚{R     Write |BezierDesc
  9. ¸{s˚{f DrawCRSpline xCRSplineDesc
  10. ¸{s˚{f Draw
  11.  NewBezier
  12.  NewCRSpline
  13.  NewClosedBezier
  14.  NewClosedCRSplineܵàflDisplayFramedscnextX
  15. Y WH
  16. ¸{f xFrameMsg˚{msg     Handlerhandle tFrameDescx0y0scale ext $|    PortDesc
  17. ¸{P˚{x CX
  18. ¸{P˚{y CY
  19. ¸{P˚{X Cx
  20. ¸{P˚{Y Cy
  21. ¸{P˚{x˙{y˘{r¯{col˜{mode  DrawCircle
  22. ¸{P˚{x˙{y˘{a¯{b˜{colˆ{mode  DrawEllipse
  23. ¸{P˚{x1˙{y1˘{x2¯{y2˜{colˆ{mode  DrawLine
  24. ¸{P˚{x˙{y˘{w¯{h˜{colˆ{mode  DrawRect
  25. ¸{P˚{x˙{y !˘{sêØâflFonts"Font"˜{fontˆ{colı{mode      DrawString
  26. ¸{P˚{x˙{y˘{r¯{col˜{patˆ{mode      
  27. FillCircle
  28. ¸{P˚{x1˙{y1˘{x2¯{y2˜{x3ˆ{y3ı{x48y4<col¿patƒmode  
  29. FillQuad
  30. ¸{P˚{x˙{y˘{w¯{h˜{colˆ{patı{mode   FillRect xyrefcntsel next x###StarDesc
  31. ¸{self˚{P #Draw
  32. ¸{self˚{R #Read
  33. ¸{self˚{R #Write#
  34.  $Name$name height"minX$maxX&minY(maxY%Font%,raster0 4|&&FontDesc"& |''Bytes%'